﻿Module Common
    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Sub OpenURL(ByVal urlMe As String) 'ok at 12-09-06[RE]  '【完成：2012-09-06】
        '程序功能：打开文件，且设置文件的父文件夹为其当前运行文件夹路径
        '2012-09-06 改造成为过程
        ShellExecute(0, "open", urlMe, "", "", 1)

    End Sub
End Module
